home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 155 / 155.d81 / ft.dancing mouse (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  42 lines
  1. 100 rem*****dancing mouse*****
  2. 102 dv=peek(186):ifdv<8thendv=8
  3. 103 poke53280,0:poke53281,0:poke53272,31
  4. 105 s=54272:pokes+24,15:pokes,220:pokes+1,68:pokes+5,15:pokes+6,215
  5. 110 pokes+7,120:pokes+8,100:pokes+12,15:pokes+13,215
  6. 115 print"[147]":v=53248:pokev+21,1
  7. 120 fors1=12288to12350:readq1:pokes1,q1:next
  8. 125 fors2=12352to12414:readq2:pokes2,q2:next
  9. 130 fors3=12416to12478:readq3:pokes3,q3:next
  10. 135 pokev+39,15:pokev+1,68
  11. 140 printtab(168)"[201] am the [196][193][206][195][201][206][199] [205][207][213][211][197]![154]"
  12. 145 p=192
  13. 150 forx=0to347step3
  14. 155 rx=int(x/256):lx=x-rx*256
  15. 160 pokev,lx:pokev+16,rx
  16. 170 ifp=192thengosub300
  17. 175 ifp=193thengosub310
  18. 180 poke2040,p:fort=1to60:next
  19. 185 p=p+1:ifp>194thenp=192
  20. 190 next
  21. 191 poke214,15:print"     [208]ress [211][208][193][195][197]/[198][201][210][197] to go to menu
  22. 193 j[178][194](56320):[161]a$:[139]a$[179][177]" "[175]j[177]111[167]193
  23. 195 [137]315
  24. 200 [131]30,0,120,63,0,252,127,129,254,127,129,254,127,189,254,127,255,254
  25. 210 [131]63,255,252,31,187,248,3,187,192,1,255,128,3,189,192,1,231,128,1,255,0
  26. 220 [131]31,255,0,0,124,0,0,254,0,1,199,32,3,131,224,7,1,192,1,192,0,3,192,0
  27. 230 [131]30,0,120,63,0,252,127,129,254,127,129,254,127,189,254,127,255,254
  28. 240 [131]63,255,252,31,221,248,3,221,192,1,255,128,3,255,192,1,195,128,1,231,3
  29. 250 [131]31,255,255,0,124,0,0,254,0,1,199,0,7,1,128,7,0,204,1,128,124,7,128,56
  30. 260 [131]30,0,120,63,0,252,127,129,254,127,129,254,127,189,254,127,255,254
  31. 270 [131]63,255,252,31,221,248,3,221,192,1,255,134,3,189,204,1,199,152,1,255,48
  32. 280 [131]1,255,224,1,252,0,3,254,0,
  33. 290 [131]7,14,0,204,14,0,248,56,0,112,112,0,0,60,0,-1
  34. 300 [151]s[170]4,129:[151]s[170]4,128:[142]
  35. 310 [151]s[170]11,129:[151]s[170]11,128:[142]
  36. 315 [153]"stopload"
  37. 320 [153]"new"
  38. 325 [153]"load"[199](34)"ft.menu"[199](34)","dv
  39. 330 [153]"run"
  40. 335 [153]"":[151]631,13:[151]632,13:[151]633,13:[151]198,3:[128]
  41. 10000 d[178][194](186):n$[178]"ft.dancing mouse":[159]15,d,15,"s0:"[170]n$:[160]15:[148]n$,d:[128]
  42.